﻿Imports System.Data.SqlClient
Imports DevComponents.DotNetBar

Public Class frmProductosPedido


    Dim variableconex As New SqlConnection(My.Settings.CITRA_ERPConnectionString)

    Private Sub frmProductosOrdenDeCompra_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        Dim DS As New DataSet
        Dim DA As New SqlDataAdapter("Select IDPRODUCTO, CODIGO, NOMBRE from productos_Nombres where tipo_identificacion='" & lblTipoIdentificacion.Text.ToString & "' ORDER BY IDPRODUCTO;", variableconex)
        DA.Fill(DS)
        dgvProductos.DataSource = DS.Tables(0)
        dgvProductos.Columns(0).Visible = False
        dgvProductos.Columns(1).Width = 250
        dgvProductos.Columns(2).Width = 250




    End Sub

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
        Close()
    End Sub




    Private Sub ButtonItem1_Click(sender As Object, e As EventArgs) Handles btnMostrarProducto.Click
        slideAcciones.Visible = True
    End Sub

    Private Sub ButtonItem19_Click(sender As Object, e As EventArgs) Handles ButtonItem19.Click
        slideAcciones.Visible = False
    End Sub

    Private Sub btnAlmacen_Click(sender As Object, e As EventArgs) Handles btnAlmacen.Click
        lblTipoIdentificacion.Text = "Almacen"
        slideAcciones.Visible = False
        cargarDatosTabla()

    End Sub

    Private Sub btnTaller_Click(sender As Object, e As EventArgs) Handles btnTaller.Click
        lblTipoIdentificacion.Text = "Taller"
        slideAcciones.Visible = False
        cargarDatosTabla()

    End Sub

    Private Sub btnProveedor_Click(sender As Object, e As EventArgs) Handles btnProveedor.Click
        lblTipoIdentificacion.Text = "Proveedor"
        slideAcciones.Visible = False
        cargarDatosTabla()

    End Sub

    Private Sub dgvProductos_DoubleClick(sender As Object, e As EventArgs) Handles dgvProductos.DoubleClick
        Agregar()
    End Sub

    Public Sub Agregar()

        Dim Mensaje, Titulo, ValorDefault As String
        Dim CantidadProducto As Object
        Mensaje = "Cantidad que queres solicitar ya sea en unidades o litros"
        Titulo = "Solicitar Cantidad"
        ValorDefault = "0"
        CantidadProducto = InputBox(Mensaje, Titulo, ValorDefault)

        Try

            If CantidadProducto Is "" Then CantidadProducto = ValorDefault

            If CantidadProducto = 0 Then

            Else

                Dim fila As Integer
                fila = dgvProductos.CurrentCell.RowIndex
                Dim valor As String
                Dim valor2 As String
                Dim valor3 As String

                valor = dgvProductos.Rows(fila).Cells(0).Value.ToString()
                valor2 = dgvProductos.Rows(fila).Cells(1).Value.ToString()
                valor3 = dgvProductos.Rows(fila).Cells(2).Value.ToString()

                'Aqui empieza la modificacion de la tabla'

                Dim row1() As String = {valor, valor2, valor3, CantidadProducto.ToString}

                frmNuevoPedido.dgvProductosPedido.Rows.Add(row1)

                frmNuevoPedido.dgvProductosPedido.Columns(0).Visible = False

                frmNuevoPedido.dgvProductosPedido.Columns(1).Width = 400
                frmNuevoPedido.dgvProductosPedido.Columns(2).Width = 400
                frmNuevoPedido.dgvProductosPedido.Columns(3).Width = 820
                Close()

            End If

        Catch ex As Exception

            ToastNotification.Show(Me, "Ha ocurrido un error al agregar este producto", My.Resources.cancelHommer, 3000, eToastGlowColor.Blue, eToastPosition.MiddleCenter)

        End Try




    End Sub

    Private Sub txtbuscarCatalogoProductos_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtbuscarCatalogoProductos.KeyPress
        Buscar()
    End Sub

    Public Sub Buscar()

        Dim DS As New DataSet
        Dim DA As New SqlDataAdapter("Select IDPRODUCTO, CODIGO, NOMBRE from productos_Nombres where TIPO_IDENTIFICACION='" & lblTipoIdentificacion.Text.ToString & "' AND NOMBRE like '%" & txtbuscarCatalogoProductos.Text.ToString & "%'", variableconex)
        DA.Fill(DS)
        dgvProductos.DataSource = DS.Tables(0)
        dgvProductos.Columns(0).Visible = False
        dgvProductos.Columns(1).Width = 250
        dgvProductos.Columns(2).Width = 250

        btncancelarbusquedaCatalogoProductos.Visible = True

    End Sub

    Private Sub btncancelarbusquedaCatalogoProductos_Click(sender As Object, e As EventArgs) Handles btncancelarbusquedaCatalogoProductos.Click

        cargarDatosTabla()

    End Sub

    Public Sub cargarDatosTabla()

        Dim DS As New DataSet
        Dim DA As New SqlDataAdapter("Select IDPRODUCTO, CODIGO, NOMBRE from productos_Nombres where TIPO_IDENTIFICACION='" & lblTipoIdentificacion.Text & "'", variableconex)
        DA.Fill(DS)
        dgvProductos.DataSource = DS.Tables(0)
        dgvProductos.Columns(0).Visible = False
        dgvProductos.Columns(1).Width = 250
        dgvProductos.Columns(2).Width = 250

        btncancelarbusquedaCatalogoProductos.Visible = False
        txtbuscarCatalogoProductos.Text = ""

    End Sub

    Private Sub btnfolder_Click(sender As Object, e As EventArgs) Handles btnfolder.Click
        MsgBox(lblTipoIdentificacion.Text)
    End Sub
End Class